home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / misc / sci / scatter.lha / Install_to_RAM < prev    next >
Encoding:
Text File  |  1999-07-08  |  1.5 KB  |  70 lines
  1.  
  2.       (set #sAskDirP "Select where you would like to install Scatter. A drawed will be automatically created.")
  3.       (set #sAskDirH "help")
  4.       (set #sAskDirD "ram:")
  5.       (set #sMakeDir "Couldn't create directory")
  6.       (set #sY       "Yes")
  7.       (set #sN       "No")
  8.       (set #sWelc    "Installation utility for\nScatter\n© 1999 nem Software")
  9.  
  10.  
  11.   (complete 0)
  12.   (welcome #sWelc)
  13.  
  14.     (set #Destpath    (askdir (prompt #sAskDirP)
  15.                               (help   #sAskDirH)
  16.                               (default "ram:")
  17.                         )
  18.     )
  19.   (set #DestDir (tackon #DestPath "Scatter"))
  20.  
  21.   (if (NOT (exists #DestDir))
  22.     (
  23.       (if (NOT (makedir #DestDir))
  24.         ((abort #sMakeDir))
  25.       )
  26.     )
  27.   )
  28.  
  29.   (copyfiles                          
  30.     (prompt #sCopy2)
  31.     (source "")
  32.     (dest #DestDir)
  33.     (pattern "scatter#?")
  34.     (files)
  35.     (infos)
  36.     (optional askuser)
  37.   )
  38.   
  39. (set #DestDir (tackon #DestPath "Scatter/Docs"))
  40.  
  41.   (if (NOT (exists #DestDir))
  42.     (
  43.       (if (NOT (makedir #DestDir))
  44.         ((abort #sMakeDir))
  45.       )
  46.     )
  47.   )
  48.   (copyfiles                          
  49.     (prompt #sCopy2)
  50.     (source "")
  51.     (dest #DestDir)
  52.     (pattern "#?.html")
  53.     (files)
  54.     (infos)
  55.     (optional askuser)
  56.   )
  57.   (copyfiles                          
  58.     (prompt #sCopy2)
  59.     (source "")
  60.     (dest #DestDir)
  61.     (pattern "#?.gif")
  62.     (files)
  63.     (infos)
  64.     (optional askuser)
  65.    ) 
  66.  
  67. (set #DestDir (tackon #DestPath "Scatter/Data_Sheets"))
  68. (makedir #DestDir)
  69. (set #DestDir (tackon #DestPath "Scatter/Graphs"))
  70. (makedir #DestDir)